home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / BBS / STBAR20.ZIP / STTOG.MEX < prev    next >
Encoding:
Text File  |  1996-04-12  |  1.1 KB  |  49 lines
  1. ////////////////////////////////////////////////////////////////////////////
  2. //
  3. // STTOG V2.00 - StarBar key toggler. (!)1996 Larry Monte/StarLab Systems
  4. //
  5. // MEX: Copyright 1990, 1995 by Lanius Corporation.  All rights reserved.
  6. //
  7. //
  8.  
  9. #define INCL_starbar
  10.  
  11. #include <max.mh>
  12. #include <max_menu.mh>
  13. #include <language.mh>
  14.  
  15. // Change the following KEY define to the access key Desired.
  16.  
  17.  
  18. #define KEY   "O"
  19.  
  20. struct _usr: u;
  21. int: keyfind, stlen;
  22.  
  23.  
  24. void main()
  25. {
  26.   init_lang_starbar();
  27.  
  28.   print(AVATAR_CLS, str_sttog_header);
  29.   print(str_sttog_note);
  30.   u.xkeys := usr.xkeys;
  31.   stlen := strlen(u.xkeys);
  32.   keyfind := strfind(u.xkeys, KEY);
  33.   if (keyfind > 0)
  34.   {
  35.     u.xkeys := (substr(u.xkeys, 1, keyfind-1))+
  36.                (substr(u.xkeys, keyfind+1,stlen));
  37.     print(str_sttog_stat_start, str_sttog_enable, str_sttog_stat_end);
  38.     menu_cmd(MNU_PRESS_ENTER,"");
  39.   }
  40.   else
  41.   {
  42.     u.xkeys := u.xkeys + KEY;
  43.     print(str_sttog_stat_start, str_sttog_disable, str_sttog_stat_end);
  44.     menu_cmd(MNU_PRESS_ENTER,"");
  45.   }
  46.   usr.xkeys := u.xkeys;
  47. }
  48.  
  49.